﻿Public Class FormBuscarUsuario
    Private _miCampeonato As Campeonato
    Private _resultadoBusqueda As List(Of String)
    Private _formDestino As String 'para enviar los datos a uno u otro formulario

    Public Property formDestino As String
        Get
            Return Me._formDestino
        End Get
        Set(value As String)
            Me._formDestino = value
        End Set
    End Property

    Private Sub FormBuscarUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato
        Me._resultadoBusqueda = New List(Of String)
        Me.ListBoxUsuario.Items.Clear()
    End Sub

    Private Sub BtnUsuarioBuscar_Click(sender As Object, e As EventArgs) Handles BtnUsuarioBuscar.Click
        Me._resultadoBusqueda = Me._miCampeonato.buscarUsuario()
    End Sub

    Private Sub ListBoxUsuario_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxUsuario.SelectedIndexChanged
        Dim TodosLosDatosSeparados = New String(8) {}
        Dim indiceElementoSelecionado As Integer = ListBoxUsuario.SelectedIndex
        TodosLosDatosSeparados = CStr(_resultadoBusqueda(indiceElementoSelecionado)).Split(CChar("-"))

        If Me._formDestino = "FormModificarUsuario" Then
            FormModificarUsuario.tbxUsuarioModNIF.Text = TodosLosDatosSeparados(0)
            FormModificarUsuario.tbxUsuarioModNombre.Text = TodosLosDatosSeparados(1)
            FormModificarUsuario.tbxUsuarioModApellidos.Text = TodosLosDatosSeparados(2)
            FormModificarUsuario.tbxUsuarioModTelefono.Text = TodosLosDatosSeparados(3)
            FormModificarUsuario.tbxUsuarioModUsuario.Text = TodosLosDatosSeparados(4)
            FormModificarUsuario.tbxUsuarioModConstraseña.Text = TodosLosDatosSeparados(5)
            FormModificarUsuario.idUsuarioAModificar = CInt(TodosLosDatosSeparados(8))
        ElseIf Me._formDestino = "FormBajaUsuario" Then
            FormBajaUsuario.tbxUsuarioBajaNIF.Text = TodosLosDatosSeparados(0)
            FormBajaUsuario.tbxUsuarioBajaNombre.Text = TodosLosDatosSeparados(1)
            FormBajaUsuario.tbxUsuarioBajaApellidos.Text = TodosLosDatosSeparados(2)
            FormBajaUsuario.tbxUsuarioBajaTelefono.Text = TodosLosDatosSeparados(3)
            FormBajaUsuario.tbxUsuarioBajaUsuario.Text = TodosLosDatosSeparados(4)
            FormBajaUsuario.tbxUsuarioBajaConstraseña.Text = TodosLosDatosSeparados(5)
            FormBajaUsuario.idUsuarioAEliminar = CInt(TodosLosDatosSeparados(7))
        End If

        Me.Close()
    End Sub

    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class